home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok24.lha / DME / .edrc next >
Text File  |  1993-08-15  |  8KB  |  256 lines
  1. # .edrc for DME V1.4
  2. # 1989 by Volker Rudolph
  3.  
  4. #Number of chars for tabs
  5. set tabs 3
  6.  
  7. margin            70
  8. tabstop        $tabs
  9. pageset           90
  10.  
  11. topedge           22
  12. leftedge           3
  13. width            701
  14. height           260
  15.  
  16.  
  17. map sc-nk1     (ping 1)
  18. map sc-nk2     (ping 2)
  19. map sc-nk3     (ping 3)
  20.  
  21. map  c-nk1     (pong 1)
  22. map  c-nk2     (pong 2)
  23. map  c-nk3     (pong 3)
  24.  
  25. map    f3      (escimm (newfile `))
  26. map    f4      (newwindow escimm (newfile `))
  27. map    f5      (escimm (chfilename `))
  28. map  s-f5      (newwindow f5)
  29. map    f6      (if m saveold quit)
  30. map    f7       arpsave
  31. map    f8       quit
  32. map    f10     (if m saveold)
  33.  
  34. map  c-i       (ignorecase toggle)
  35. map  c-f       (escimm (find `))
  36. map  c-n        next
  37. map  c-p        prev
  38. map  c-r       (escimm (multireplace ))
  39. map sc-f       (escimm (findr ))
  40. map sc-n        nextr
  41. map sc-p        prevr
  42.  
  43. map  c-b       (toggle 9 if 9 unblock block)
  44. map  c-u       (resettoggle 9 unblock)
  45. map  c-e       (resettoggle 9 bdelete)
  46. map  c-m       (resettoggle 9 bmove)
  47. map  c-d        bcopy
  48. map sc-s       (goto block bsave t:dme.block execute (sort T:dme.block T:dme.sort) bdelete insfile T:dme.sort execute (delete T:dme.sort T:dme.block) resettoggle 9)
  49.  
  50. map    tab     (ifelse cb (goto block while cb (first repeat \$tabs (( )) down) goto block) (repeat tr (( ))))
  51. map  s-tab     (ifelse cb (goto block while cb (first repeat \$tabs (if c=32 del) down) goto block) (repeat tl left) )
  52. map  c-l       (escimm (insfile `))
  53. map  c-w       (escimm (bsave `))
  54.  
  55. map  s-bs      (left while !ca (del left) while ca (del left) right)
  56. map  s-del     (while !ca (ifelse r abort del) while ca del)
  57. map  c-bs      (while !l bs)
  58. map  c-del      remeol
  59.  
  60. map  c-o       (insertmode toggle)
  61. map  c-j       (last join del)
  62. map  c-s       (-return up last)
  63. map  c-y        deline
  64. map sc-y        undeline
  65. map  c-x       (insline down first if !r (while !ca (up ( ) down)) up)
  66.  
  67. map sc-u        undo
  68. map  c-g       (escimm (goto ))
  69. map sc-w       (wordwrap toggle)
  70. map sc-r        reformat
  71. map sc-m       (escimm (margin ))
  72. map  c-help     ref
  73. map  c-\\      (escimm (execute `))
  74.  
  75. map    c-tab   (first while c=32 right c-bs up while c=32 (ifelse r (down abort) (down ( ) up)) down)
  76. map    return  (ifelse x=1 (insline down) (ifelse r (downadd first insline c-tab) (split down c-tab) ))
  77. map  s-return  (firstnb down)
  78. map    enter    return
  79. map  s-up       pageup
  80. map  s-down     pagedown
  81. map  s-left     wleft
  82. map  s-right    wright
  83. map  c-up       top
  84. map  c-down     bottom
  85. map  c-left     first
  86. map  c-right    last
  87. map  a-help    (pushmark unblock block block bsource popmark)
  88.  
  89. menuoff
  90.  
  91. menuadd  Project  (Load         F3 )   (arpload)
  92. menuadd  Project  (Load window  F4 )   (newwindow arpload)
  93. menuadd  Project  (-------------)      (null)
  94. menuadd  Project  (New Name     F5 )   (f5)
  95. menuadd  Project  (New Window s-F5 )   (s-f5)
  96. menuadd  Project  (------------- )     (null)
  97. menuadd  Project  (Save Quit    F6 )   (f6)
  98. menuadd  Project  (Save As      F7 )   (f7)
  99. menuadd  Project  (Quit         F8 )   (f8)
  100. menuadd  Project  (Save         F10)   (f10)
  101.  
  102. menuadd  Search   (Ignore case c-i)    (c-i)
  103. menuadd  Search   (------------)       (null)
  104. menuadd  Search   (Find        c-f)    (c-f)
  105. menuadd  Search   (Find Next   c-n)    (c-n)
  106. menuadd  Search   (Find Prev.  c-p)    (c-p)
  107. menuadd  Search   (------------ )      (null)
  108. menuadd  Search   (Replace     c-r)    (c-r)
  109.  
  110. menuadd  Block    (Mark       c-b)      (c-b)
  111. menuadd  Block    (Unmark     c-u)      (c-u)
  112. menuadd  Block    (-----------)         (null)
  113. menuadd  Block    (Move       c-m)      (c-m)
  114. menuadd  Block    (Erase      c-e)      (c-e)
  115. menuadd  Block    (Duplicate  c-d)      (c-d)
  116. menuadd  Block    (Indent     tab)      (tab)
  117. menuadd  Block    (Backdent s-tab)      (s-tab)
  118. menuadd  Block    (----------- )        (null)
  119. menuadd  Block    (Load       c-l)      (arpinsfile)
  120. menuadd  Block    (Write      c-w)      (c-w)
  121. menuadd  Block    (Sort      sc-s)      (sc-s)
  122.  
  123. menuadd  Line     (Split   c-s)    (c-s)
  124. menuadd  Line     (Join    c-j)    (c-j)
  125. menuadd  Line     (Del     c-y)    (c-y)
  126. menuadd  Line     (Undel  sc-y)    (sc-y)
  127. menuadd  Line     (Ins     c-x)    (c-x)
  128. menuadd  Line     (Undo   sc-u)    (sc-u)
  129. menuadd  Line     (----------)     (null)
  130. menuadd  Line     (Top    c-cu)    (c-up)
  131. menuadd  Line     (End    c-cd)    (c-down)
  132.  
  133. menuadd  Misc     (Overwrite mode c-o)  (c-o)
  134. menuadd  Misc     (Goto           c-g)  (c-g)
  135. menuadd  Misc     (--------------)      (null)
  136. menuadd  Misc     (Wordwrap      sc-w)  (sc-w)
  137. menuadd  Misc     (Reformat      sc-r)  (sc-r)
  138. menuadd  Misc     (Margin        sc-m)  (sc-m)
  139. menuadd  Misc     (-------------- )     (null)
  140. menuadd  Misc     (Set mark 1   sc-nk1) (sc-nk1)
  141. menuadd  Misc     (Set mark 2   sc-nk2) (sc-nk2)
  142. menuadd  Misc     (Set mark 3   sc-nk3) (sc-nk3)
  143. menuadd  Misc     (Goto mark 1   c-nk1) (c-nk1)
  144. menuadd  Misc     (Goto mark 2   c-nk2) (c-nk2)
  145. menuadd  Misc     (Goto mark 3   c-nk3) (c-nk3)
  146. menuadd  Misc     (--------------  )    (null)
  147. menuadd  Misc     (Reference    c-help) (c-help)
  148. menuadd  Misc     (Cli command    c-\\) (c-\\)
  149.  
  150. # Modula-2 support
  151.  
  152. menuadd  Errors   (Next  Error      F1) (f1)
  153. menuadd  Errors   (Previous Error s-F1) (s-f1)
  154. menuadd  Errors   (Current Error    F2) (f2)
  155. menuadd  Errors   (First Error    s-F2) (s-f2)
  156. menuadd  Errors   (Re-read File   s-F3) (s-f3)
  157. menuon
  158.  
  159. map    f1       nexterr
  160. map  s-f1       preverr
  161. map    f2       currenterr
  162. map  s-f2       firsterr
  163. map  s-f3      (newfile $filename firsterr)
  164. map    f3      (escimm (newfile `txt/))
  165. map    f4      (newwindow escimm (newfile `txt/))
  166.  
  167. #Search-path for dme.refs
  168. addpath M2:
  169.  
  170. map   -i ((i))
  171. map  s-i ((I))
  172. map   -a ((a))
  173. map  s-a ((A))
  174. map   -e ((e))
  175. map  s-e ((E))
  176.  
  177. map  a-k (firstnb `(* ' last right `*)')
  178. map sa-k (first findstr `*' next left del del del next del del bs firstnb)
  179.  
  180. map  a-left  (findstr (PROCEDURE ) prev)
  181. map  a-right (findstr (PROCEDURE ) next)
  182.  
  183. map  a-9 ((()) left)
  184. map  a-0 ((();) left left)
  185.  
  186. map  a-a ((AND ))
  187. map  A-a ((ARRAY [] OF ) wleft left left)
  188. map sA-a ((ADDRESS;))
  189.  
  190. map  a-b ((BEGIN) -return)
  191. map sa-b ((BY ))
  192. map  A-b ((BOOLEAN;))
  193.  
  194. map  a-c ((CASE  OF) -return (END; (* CASE *)) up last wleft left)
  195. map sa-c ((CONST) -return)
  196. map  A-c ((CHAR;))
  197. map sA-c ((ARRAY OF CHAR;))
  198.  
  199. map  a-d ((DIV ))
  200. map sa-d ((DEFINITION MODULE ;) -return -return up up firstnb down down (END .) up up last left)
  201.  
  202. map  a-e ((ELSE) -return)
  203. map sa-e ((EXIT;) left)
  204.  
  205. map  a-f ((FOR  TO  DO) -return (END; (* FOR *)) up last wleft wleft left)
  206. map sa-f ((FROM  IMPORT ;) firstnb wright left)
  207. map  A-f ((FALSE))
  208.  
  209. map  a-h ((HALT;))
  210.  
  211. map  a-i ((IF  THEN) -return -return up up firstnb down down (END; (* IF *)) up up last wleft left)
  212. map sa-i (escimm (set name ) (IMPLEMENTATION MODULE \$name;) return return (END \$name.) up first)
  213.  
  214. map  A-i ((INTEGER;))
  215.  
  216. map  A-k ((CARDINAL;))
  217. map  a-l ((LOOP) -return -return up up firstnb down down (END; (* LOOP *)) wleft up (  ))
  218. map  A-l ((LONGINT;))
  219. map sA-l ((LONGCARD;))
  220.  
  221. map  a-m ((MOD ))
  222. map sa-m ((MODULE ;) -return -return up up firstnb down down (END .) up up last left)
  223.  
  224. map  a-n ((NOT ))
  225. map  A-n ((NIL ))
  226.  
  227. map  a-o ((OF ))
  228. map sa-o ((OR ))
  229.  
  230. map  a-p (escimm (set name ) (PROCEDURE \$name();) -return (VAR) -return (BEGIN) -return -return up up firstnb down down (END \$name;) up up up up last left left)
  231.  
  232. map  A-p ((POINTER TO  ;) left left)
  233.  
  234. map  a-q ((QUALIFIED ))
  235.  
  236. map  a-r ((REPEAT) -return -return up up firstnb down down (UNTIL ;)left)
  237. map sa-r ((RETURN ;) left)
  238. map  A-r ((RECORD) -return -return up up last wleft down down (END;) firstnb up (  ))
  239. map sA-r ((REAL;))
  240.  
  241. map  a-s ((SET OF ;) left)
  242.  
  243. map  a-t ((TYPE) -return)
  244. map  A-t ((TRUE))
  245.  
  246. map  a-v ((VAR) -return)
  247. map sa-v ((VAR ))
  248.  
  249. map  a-w ((WHILE  DO) -return -return up up firstnb down down (END; (* WHILE *)) up up last wleft left)
  250. map sa-w ((WITH  DO) -return -return up up firstnb down down (END; (* WITH *)) up up last wleft left)
  251.  
  252. map   help (( := ;) left)
  253. map s-help (( := ))
  254.  
  255.  
  256.